<!-- #include file="cache.asp" -->
<%
dim databasePad

databasePad = "driver={Microsoft Access Driver (*.mdb)};DBQ=C:\inetpub\wwwroot\itmundi\db\itmundi.mdb"

sub openConnectie
	'maak een ado connectie object
	set connectie = server.createObject("ADODB.Connection")
	'open connectie
	connectie.open databasePad
end sub

sub sluitConnectie
	'sluit connectie
	connectie.close
	'maak het object connectie leeg
	set connectie = nothing
end sub
%>